﻿Public Class Validar

    Public Function validarNumero(ByVal valor As String)
        If IsNumeric(valor) Or valor = "" Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function validarBlanco(ByVal texto As String)
        If texto = "" Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function validarComboBlanco(ByVal combo As String)
        If combo = -1 Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function validarFecha(ByVal texto As String)
        If IsDate(texto) Or texto = "" Then
            Return True
        Else
            Return False
        End If
    End Function
End Class
